home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
MCAD
/
ANHARM.MCD
/
ANHARM.MCD
Wrap
Text File
|
1991-06-12
|
4KB
|
128 lines
.MCD 30001 1 74
.CMD PLOTFORMAT
0 0 1 0 0
0 0 1 0 0
0 1 0 0 NO-TRACE-STRING
0 2 1 0 NO-TRACE-STRING
0 3 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 1 21 15
.CMD FORMAT rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
.CMD SET ORIGIN 0
.CMD SET TOL 0.001000000000000
.CMD SET PRNCOLWIDTH 8
.CMD SET PRNPRECISION 4
.CMD PRINT_SETUP 1.200000 0
.CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
.CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
.CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
.CMD DEFINE_FONTSTYLE_NAME fontID=3 name=Greek^Variables
.CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
.CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
.CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
.CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
.CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
.CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
.CMD DEFINE_FONTSTYLE fontID=0 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=1 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=2 family=Helv points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=3 family=Symbol points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=4 family=Helv points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=5 family=Courier points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=8 family=Terminal points=0 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
.CMD UNITS U=1
.TXT 2 1 0 0
C a218,220,104
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Helv;}
{\f1\fnil Symbol;}
}
{\plain {}{\f0 \fs24 \b \i \ulnone }{}{\f0
\fs24 \b \i \ulnone Anharmonic Oscillations}{}{\f0
\fs24 \b0 \i \ulnone :}{}}
}
.TXT 4 1 0 0
C a208,210,33
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Helv;}
{\f1\fnil Symbol;}
}
{\plain {}{Over a mesh of N points...}{}}
}
.EQN 0 33 0 0
N:100
.EQN 0 14 0 0
i:1;N
.TXT 4 -40 0 0
C a328,330,74
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Helv;}
{\f1\fnil Symbol;}
}
{\plain {}{...spanning the range from -}{}{\f1
a}{}{ to }{}{\f1 a}{}{, where}{}}
}
.EQN 0 43 0 0
{3}a:3.1
.EQN 4 -15 0 0
(x)[(i):{3}a*(2*(i)/(N+1)-1)
.EQN 2 -32 0 0
(t)[(0):0
.EQN 0 16 0 0
(x)[(0):{3}a
.TXT 6 -19 0 0
C a567,567,140
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Helv;}
{\f1\fnil Symbol;}
}
{\plain {}{We compute the times at which
these points are reached by an oscillator
having a cosine potential energy, and plot
their trajectory.}{}}
}
.EQN 6 1 0 0
(t)[(i):(t)[(i-1)+({3}a)/(\(|(cos((x)[(i))-cos({3}a))))
.EQN 0 25 0 0
{3}a&-{3}a&(x)[(i)@(t)[(N)&0&(t)[(i)
0 0 0 1 0
0 0 0 1 0
0 1 0 1 NO-TRACE-STRING
0 2 1 0 NO-TRACE-STRING
0 3 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 1 30 18